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1. Purpose: To move the pen (in the raised position) as fast as possible 
given the desired number of x and y plotter increments (0.01 inch) as 
fixed point integers at b - 39. The motion is along the diagonal as 
far as possible followed by motion along a coordinate axis the re- 
mainder of the way. 

2. Restrictions : The numbers X and Y should be consistent with the avail- 
able plotting space. 

3. K-thod 

3.1 This routine utilizes the full word alphanumeric output feature of 
Recomp. Thus, we define 

P +Y ■ word consisting of eight +X (02o) plotter commands 
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3.2 If X and Y are both zero return is made immediately. 

3.3 Define 



Py 



( P„ if X>0 / p if Y>0 

\ * P v -\ * 

P if X^: ( P Y if Y^O 



1 i 



If ; X!«:jY; interchange P„ with P„ and X with Y 
Further define 



P d - P x ♦ P y N d - )Y| 



P - P Y N - X - Y 

s X s ' ' 

3.U Divide N by 8 so that N - 8 q + r where ■£ r -£ 8. Output P 

using PNC. 7760 command q times. If r f output P with PNC 7760 + r 
command; if r ■ skip this output. Repeat above using N and P . 

3«5> ?or a discussion of the plotter output commands see Recomp Technical 
3ulletin No. 2k 9 paragraphs i|.2 and h.3« 

lu Use ; Although by no means necessary, it is intended that one 

ordinarily use the "Floating Point to Plotter Increment Conversion" 
subroutine to convert floating point data to the form required by 
this routine. 
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i;.l Definition of coordinates: 

When facing the plotter 

+x is the direction a line is drawn when the drum moves down 

-x is the direction a line is drawn when the drum moves up 

+y is the direction a line is drawn when the carriage rr.oves left 

-y is the direction a line is drawn when the carriage moves right 



lu2 Calling Sequence: With X in A register and Y in R register transfer to 
origin of the subroutine. X and Y must be fixed point integers at a 
binary scale of 39. After line has been plotted return will be made to 
the next location. 



CLA : 
XAR 

CLA ; 
TRA ] 

■RETURN 



or any sequence placing X in A and 
Y in R 



5. 
5.1 



Coding Information 



Locations used: This routine occupies 60o locations (i.e., L to L + 57) 
It destroys both loops and all registers. ° ° 



r>.^ 



Constants 



12 
13 
11; 
15 



D 

A +X 



+Y 



(Alphanumeric words - see 3»l) 



hS 

U6 



+1 b - 39 
+7 b - 39 



:.3 



Erasable Locations 



S.k 



L ♦ hi 
^6 . 
+ hi 

Unused Location 

L + hi 
o 



5.5 



This subroutine is relocatable by the method of Ai\'-076 
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6, Af-r/irk : Change of Coordinate System 

T:ie coordinate system as defined by Li.l is such that, when facing the 
plotter, the x axis is positive upward and the y axis is positive to 
the left. It is frequently convenient to have the coordinate system 
defined in such a manner that the y axis is positive upward and the x 
axis is positive to the right (i.e., a 90 degree clockwise rotation of 
the standard plotter coordinate system). This result may be achieved 
by altering the following locations to read (in command format): 

L ♦ 12 - 20 11020 20 [;1020 



o 



13 - ill 020U0 lil 020U0 
Ik. - 10 20U.0 10 20hl0 
15 - 0k 10201 01; 10201 
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0000.0 
+ CTL 
4- CTV 
+ 70 
+ ADD 
+ CLA 
4- FST 
+ CLA 
4- CLA 

0010.0 
4- CTL 
CLA 
10 
TAD 
ALS 
DSL 
XAR 
XAR 



+ 



+ 
4- 



0020.0 
+ CLA 
4- CLA 
+ STO 
+ FCA 
4- FST 
4- FCA 
+ FST 
4- CTL 



0000.0 
0010.0 
0000.0 

7762.0 
7760.0 

7776.0 

7773-0 
777-' -° 



ooeo.o 
UP* 

20!n .0 

1020.1 

02C&.0 
hi 02,0 
0000.0 
0000.0 



777^0 

7776.1 

OOMi.O 

777M 
777^.0 
7776.0 

6630.0 



0030.0 

+ ADD 7775.O 

4- CLA 777S.I 

4- SUB 7775.0 

+ XAR OOCO.O 

4- PMC 7760.0 

4- TRA 7762.0 

4- TZE 7771.0 

+ ADD 77/0.0 



4 r -AX 7760.0- 
4 TF?A 77£'o.O 

4 TRA oocb.i 

-i- STO OC57.O 
-!• TZE 777u.O 
4- TPL 7767.O 
4- TRA 7767.I 
-i- XAR 0000.0 



+ TPL 776O.O 

4- TRA 776O.I 

- 10 20*11 .0 

- FAD 1020.1 

- ALS 020^.0 

- DSL Hi 02,0 
+ TZE OO57.I 
4- TRA 7765.O 



4- FST 777^.0 

4- SU3 7777.1 
+ TPL. 7765.O 

4- XAR 0000.0 

4 TRA 7767.O 

4- XAR 0000.0 

+ fca 777H.0 

4- TRA 7760.0 



+ FST OO^ 6.0 

4- CTV 00*10.0 

4- TMI 7765.1 

+ CLA 777b. 

4- XAR 6660.0 

+ ADn 7775.O 

4- ALS 60C1 .0 

+ STO 7770.0 



Pa^o 1} 



00^0.0 
4- CLA 
4- CTL 
4- XAR 
4- CLA 
4- CLA 
4- CLA 

- 21* 

- FAD 

OO5O.O 
+ XAR 
4- CLA 
4- SUB 
+ ADD 
4- ALS 
4- STO 
4- CLA 
+ 70 



IF 6 - 

6650.0 

0000.0 
0000.0 
0000.0 
0000.0 
5122.1 
1020.1 



0000.0 

7777.0 
7775.0 

0061 !o 
7766.0 

o6oo!o 



4- PNC 7760.0 
4- CLA 777^.1 
+ TRA 770I .0 

- CLA 6600.0 
-CLA 0000,1 

- CLA OOOH.O 

- 2k 5122.1 

- FAD 1020.1 



+ PNC 776O.O 

4- XAR 0000.0 

4- TPL 776O.O 

+ TZE 7767.I 

4- ADD 776b.O 

4- 70 6600.0 

+ PNC 776O.O 

4- TRA 3603.O 



